home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
MENUEV21.ZIP
/
SAMPLE.ZIP
/
MESAMPLE.FRM
< prev
next >
Wrap
Text File
|
1993-10-20
|
2KB
|
91 lines
VERSION 2.00
Begin Form MESAMPLE
BorderStyle = 1 'Fixed Single
Caption = "MenuEv Sample"
ClientHeight = 2760
ClientLeft = 1275
ClientTop = 2520
ClientWidth = 4680
Height = 3450
Left = 1215
LinkTopic = "Form1"
ScaleHeight = 2760
ScaleWidth = 4680
Top = 1890
Width = 4800
Begin MenuEvent MenuEv1
Left = 240
Top = 240
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Label1"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 0
Top = 2490
Width = 4335
End
Begin Shape Shape1
BackColor = &H00C0C0C0&
BackStyle = 1 'Opaque
Height = 375
Left = -10
Top = 2400
Width = 4695
End
Begin Menu MenuFile
Caption = "&File"
Begin Menu MenuFileNew
Caption = "&New"
End
Begin Menu MenuFileOpen
Caption = "&Open"
End
Begin Menu MenuFileClose
Caption = "&Close"
End
Begin Menu MenuFileSep
Caption = "-"
End
Begin Menu MenuFileExit
Caption = "E&xit"
End
End
Begin Menu MenuEdit
Caption = "&Edit"
End
Begin Menu MenuView
Caption = "&View"
End
End
Option Explicit
Sub Form_Load ()
Label1 = ""
MenuFile.Tag = "Create, open, save files or quit."
MenuFileNew.Tag = "Creates a new file."
MenuFileOpen.Tag = "Opens an existing file."
MenuFileClose.Tag = "Closes a file."
MenuFileExit.Tag = "Quits MESAMPLE."
MenuEdit.Tag = "Edit things."
MenuView.Tag = "View things."
End Sub
Sub Form_Unload (Cancel As Integer)
End
End Sub
Sub MenuEv1_MenuEvent (MenuText As String, Flags As Integer, Tag As String, HelpContextID As Long)
Label1 = Tag
End Sub
Sub MenuFileExit_Click ()
End
End Sub